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MODULE MODIFY (LANGUAGE (Oh S858) . 
IDENT = 'V04-000' 


Mw 


3 ; 

ie 

: 5 : BEGIN 

: ? sid } ieeenenaeecaeecarecenneneneeneeerreerereretereterernnerneninettnntennttnetes 
3 'e * 
; 9 009 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY a 
=, Baio 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
3 1} 0 \ : ‘° ALL RIGHTS RESERVED. * 
3 'e * 
$ ig $018 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; (16 0014 1 !* WLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
> 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 1g 8038 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
-_ 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 18 Bets : :* TRANSFERRED. * 
P -* ® 
3 0 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
g 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 ¢ 88 ¢ : * CORPORATION. * 
Ps .* * 
3 4 4 4 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 é 4 2 ; - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 4 
Py ; ‘ 
. ! 

: 8 3a :  eactiniseieaandpeheeiaeaniaeieiashuneitalahenennieaeiaebiieeainbliaidestianitehiendidianaintaiaiadamcetdaried 
3 1 

3 0 0030 1 !++ 

3 1 tt é 

3 ¢ 00 ¢ 1! FACILITY: MTAACP 

3 0033 1! 

3 4 it 1 ! ABSTRACT: 

; 5 0035 1! This module executes the modify function. 

; 6 0036 1! ( This module has never been implemented because of design problems 

: i +t 4 : } which caused race conditions in the execution. Maria Nasr) 

: 39 0039 1 | ENVIRONMENT: 

; 40 0040 1! 

: (41 0041 1! VMS operating system, including privileged system services 

3 rs | BRe§ gs and internal exec routines. 

2 

> 45 Soe8 1 

3 £6 BReg 1! 

3 4 1! 

3 $8 3 : AUTHOR: D. H. GILLESPIE, CREATION DATE: 18-JUL-77 

; 30 30 : MODIFIED BY: 

; 3¢ 3 1 v02-005 DMw00044 David Michael Walp 28-Oct-1981 

: &7 3? } Commented out all code but error checking for bad attributes 
; i i 1 V02-004 REFORMAT Maria del C. Nasr 30-Jun-1980 

: 57 1 


ooo 


i 


$3 


> tt 


a 
= 


LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
REQUIRE ‘'SRCS:MTADEF .B32'; 


FORWARD ROUTINE 
MTA_MODIFY : NOPRES NOVALUE; 


EXTERNAL 
IO_PACKET : REF BBLOCK; 


1$eSe0-1984 03:25:08 YaNe11 a teg332 4.02342 


! main control for modify acp function 


! address of current 10 request packet 


Sd 


moDIey. 1B-Se0-1984 02:25:09 yAret! BLis5-52 v4.0. 


iw 


m Page 3 


v0 


3 


H rp re ¢ } GLOBAL ROUTINE MTA_MODIFY : NOPRES NOVALUE = : 
BS 454 1 44 : 
= F 5 1i 3 
3; 66 4 § 7! FUNCTIONAL DESCRIPTION: : 
3 o? tet ! this routine executes the modify function : 
ae 459 1 ! CALLING SEQUENCE: : 
; 460 1! MTA_MODIFY() 3 
; 0461 1! 5 
; 0 rh 1 ! INPUT PARAMETERS: $ 
; 1 465 1! NONE 3 
3 ¢ 464 1! : 
; 465 1 ! IMPLICIT INPUTS: 3 
3 Be Bee : IO_PACKET = address of current io request packet : 
5 0468 1 ! OUTPUT PARAMETERS: F 
; 87 0469 1! NONE 3 
; 688 0470 1! 3 
; «6889 0471 1°! IMPLICIT OUTPUTS: 3 
; 0472 1! NONE $ 
; (91 0475 1! F 
; 36 0474 1 ! ROUTINE VALUE: 3 
;- ¥ 0475 1! NONE F 
; * 0476 1! 3 
5; 0477 1! SIDE erect: : 
; 0478 1! this routine only handles user labels and end user label processing with : 
s oO 0479 1! next ast 3 
; 0480 1! F 
oO 0481 1 !-- : 
: 100 0482 1 F 
: 101 048 BEGIN 3 
; I9¢ 0484 3 
; 10 0485 EXTERNAL REGISTER : 
3; 104 0486 COMMON_REG; : 
; 105 0487 3 
; 106 0488 LOCAL : 
3; 107 0489 ABD : REF BBLOCKVECTOR C, ABDSC_LENGTHI, ! addr of descr vector : 
: 108 0490 CODE, ' attribute code 3 
; 109 0491 P, ! pointer to attribute ; 
; aay 049 PACKET : REF BBLOCK; ! jo packet address ; 
; 1g 494 PACKET = .10 PACKET : 
: 113 0496 ABD = BBCOCKC.PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPT); ; 
,. 335 49 INCRU I FROM ABDSC_ATTRIB TO .PACKETCIRPS$W_BCNT) - 1 DO : 
; 116 498 BEGIN : 
. oor 499 P = wasT . ABDSW_ TEXT] + ABDC.1, ABDSW_TEXT); ; 
; #6118 500 CODE = .(.P)<0, 8>; 3 
3; 6119 4 3 
3 131 208 check if code is in range : 
; \ é aR IF .CODE GTRU ATRSC_MAX_CODE THEN ERR_EXIT(SS$_BADATTRIB); : 
: 158 306 ' only attributes that can be modified are user labels and end user 3 
: \$2 3 !' Labels and they are not supported : 
; 126 508 ' all other attributes are droped on the floor for device independent 3 
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FY bese -1984 02:25:0 AX-11 Bliss-32 V4.0-74 
Y04 000 1e-Sep-19 4 96:22:9 ERTAACP’SRe MODIFY.B32; 
; 178 58 {ROUTINE UPDATE_MUSTCLOS : COMMON CALL NOVALUE = 
iB Re dis 
: 1 ¢ 6¢ 1 | FUNCTIONAL DESCRIPTION: 
2 os 2s this routine notes that the file must be close and inhibits any 
3 130 rf: ! } more virtual reads or writes 
: (186 0566 1! CALLING SEQUENCE: 
; 187 096 UPDATE_MUSTCLOS(), KERNEL MODE 
: 189 509 1 | INPUT PARAMETERS: 
oie ie 
; 198 228 1 | IMPLICIT INPUTS: 
; 19 575 1! CURRENT_WCB - address of current window control block 
$ 13° bere : CURRENT_VCB - address of current vo.ume control block 
; 196 0576 1 | OUTPUT PARAMETERS: 
: 138 bre 1 i _— 
: 199 §378 1} IMPLICIT OUTPUTS: 
eee ei 
: 08 058¢ 1 | ROUTINE VALUE: 
ee 
: 205 0585 1 ! SIDE EFFECTS: 
Re 4 Et en 
: 208 0588 1 | USER ERRORS: 
: 209 0589 1: NONE 
: 210 0590 1 
$13 bso i 
oe ee ee 
> 215 595 1: EXTERNAL REGISTER 
; 16 396 COMMON_REG; 
: 218 0898 | | CURRENT_WCBCWCBSW_NMAP] = 0; 
> 219 0599 1! CURRENT VCBCVCBSV~MUSTCLOSE) = 1; 
: 220 0600 1! END; 


sa | 


if . CURRENT_VCBCVCB$B_TM] EQL 0 
(.ADDR)<0, 24> = "UHL" 
(.ADDR)<0, 24> = 'UTL'; 
END; ! end of routine 
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FY 16-Sep-1984 02:25:0 AX-11 Bliss-32 V4.0-74 Page 7) MOl 
YOu O00 18-808 -1 3b 96:22 :9 EMTAACP SRE ROSIN YT o3001 . (5) | v0 
; 3 1 tROUTINE INS_USRLBL_ID (ADDR) : COMMON CALL NOVALUE = | : 
; 4 6 g ‘ee | ; 
i $06 605 1 | FUNCTIONAL DESCRIPTION: | 
3 3 } : this routine inserts the user label id into the user label : 
i 229 608 1 | CALLING SEQUENCE: 3 
; 9 609 ; INS_USRLBL_ID(ARG1), CALLED IN KERNEL MODE : 
i 33¢ 11 1 | INPUT PARAMETERS: : 
; oig ! } ARG] = address of user label : 
; 235 614 1 | IMPLICIT INPUTS: : 
; 615 NONE ; 
: 238 es 1 | OUTPUT PARAMETERS: : 
; io rat i i stirs : 
; 241 0620 1 | IMPLICIT ouTPUTS: 
; : Be 1 } first three characters of user label either ‘uhl* or ‘utl' ‘ 
: 264 06 g 1 | ROUTINE VALUE: 
; 45 6 4 NONE 
> 26 6 6 1 | SIDE EFFECTS: : 
g 6 1! NONE F 
3 4 628 1! g 
; 9 1 | USER ERRORS: 
; 0630 1! NONE : 
$2 bees fj : 
i $8 gyi 
; 3 4 i BEGIN 
> 25 6 1 | EXTERNAL REGISTER : 
: 25 1! COMMON_REG; ; 
; 5 7% r 
; 3 1! : 
; Oo 1! : 
3 = @ 3 
: i! . 
: : 1! : 
: 41! ; 
; 5 1! : 
A 61€E : 
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71986 13:48:03 EAtaAcP’SReSmODIFY 030; 


If . COUNT NEQ 4 THEN ERR 
IF .CURRENT_WCB EQL O qwen 
if CURRENT vtec 4 READ 
F NOT .CURREN ts 
AND NOT . LOREEN ur’ ve6 vees0 
AST_BLOCK = RENTS 


B 
BUILTIN PROBER; 
MODE = 0; 


TRI 
aise 

TT(S ICLUSRLBLUT) ; 

HEN ERR_EXIT(SS$_ILLUSRLBLWT); 


. es 


! 

! 

! 

' 

' 

! 

! 

! 

! 

! 

i Lock 

i AND (NOT RODE. LEN TH, .AST_BLOCK) 
i OR .AST BLOce ACBSB_f Ned DYASC_ACB) 
THEN ERR_EXIT(SSS_ ICLUBLAST) 

i IF .CURRENT_VCBCVCBSV_MUSTCLOSE) THEN 
; BEGIN 

! 

1 

! 

i 

i 

i 


CLOSE_F 
KERNEC_ CAEL CHURN. OFF _WRITE); 


KERNEL “CALL (COMPLETE -USRLBL,.AST_BLOCK,.1,.ABD); 


IF UNBLOCK NECESSARY DO IT NOW 
IF .CURRENT_VCBCVCB$V_WAIUSRLBL] THEN UNBLOCK(.CURRENT_VCB); 


Son nik ki nk tk at at et ot ot = = = = 2 8 2 


ELUDOM 


3 PSECT SUMMARY 
: Name Bytes Attributes 
: SCODES 62 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


Ree eel eee Symbols ecceceee Pages Processing 
3 File Total Loaded Percent Mapped Time 
; _$255$DUA28:CSYSLIBILIB.L32;1 18619 14 0 1000 00:01.8 


COMMAND QUALIFIERS 


l b-se -1984 5: AX-11_ Bliss-32 V4.0 
YO-000 12zSEB13BE 98:23:23 = AN ALe SAE Snob Yt 6356 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:MODIFY/OBJ=OBJ$:MODIFY MSRCS$:MODIFY/UPDATE=(ENH$:MODIFY) 
; Size: 62 + 0 data bvtes 
: Bun Tine i, 


; Lexemes/CPU-Min: 1 
; peng hs Used: 76 pages 
; Compilation Complete 
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